How Computers Work (Alt)/HowComputersWork.iso/Walkthrough/Mill/HCW.DXR/00612_SS - credits.ls

Text File | 1999-07-26 | 568 b | 24 lines

property pSprite, pLocV, pSound

on beginSprite
  set the volume of sound 1 to 0
  set pSprite to the currentSpriteNum
  set pLocV to the locV of sprite pSprite
  set pSound to the number of member "S - Credits"
  puppetSound(1, pSound)
end

on exitFrame
  if the volume of sound 1 < 255 then
    set the volume of sound 1 to the volume of sound 1 + 5
  end if
  set the locV of sprite pSprite to the locV of sprite pSprite - 2
  if the bottom of sprite pSprite < 0 then
    set the locV of sprite pSprite to pLocV
  end if
end

on endSprite
  sound fadeOut 1, 30
end